home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 013 / testdrv.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-04-24  |  1.4 KB  |  45 lines
  1. 10   'DISK DRIVE TEST
  2. 20   'JOE McDERMOTT - DECEMBER 1982
  3. 25   'NORTH JERSEY IBM PC CLUB
  4. 30   '
  5. 40   'THE PROGRAM CREATES A SERIES OF SEQUENTIAL FILES
  6. 50   'IT WRITES DATA TO THEM AND READS IT BACK FOR VERIFICATION
  7. 60   'FINALLY THE TEST FILES ARE ERASED/
  8. 70   'THE FILES ARE OF THE FORM "XXX.TST" WHERE "XXX" ARE THREE LETTERS
  9. 80   'CHOSEN AT RANDOM, E.G. "EBG.TST","CXU.TST"
  10. 90   '
  11. 100   NUMFILES=40        'NUMBER OF FILES THAT WILL BE CREATED
  12. 110   DIM FS$(NUMFILES)  'ARRAY FOR STORING FILESPECS
  13. 120   FTYPE$=".TST"      'FILE EXTENSION USED IN THE TEST
  14. 130   INPUT"DRIVE TO BE TESTED ";DD$
  15. 140   DD$=DD$+":"
  16. 150   '
  17. 160   INPUT"*** INSERT DISK AND PRESS `ENTER' ***",Z$
  18. 170   '
  19. 180   '   ---------- CREATE FILES ----------
  20. 190   FOR I=1 TO NUMFILES
  21. 200     FILENAME$ = CHR$(RND*26+64)+CHR$(RND*26+64)+CHR$(RND*26+64)
  22. 205     FS$(I)=DD$+FILENAME$+FTYPE$
  23. 210     PRINT"CREATING: ";FS$(I);" #";I
  24. 220     OPEN "O",1,FS$(I)           'CREATE DIRECTORY ENTRY
  25. 230     PRINT#1,STRING$(255,"*")    'WRITE DATA TO FILE
  26. 240     PRINT#1,STRING$(255,"*")
  27. 250     PRINT#1,STRING$(255,"*")
  28. 260     CLOSE 1
  29. 270   NEXT I
  30. 280   '   ---------- READ BACK FILES -----------
  31. 290   FOR I=1 TO NUMFILES
  32. 300     PRINT"READING: ";FS$(I);" #";I
  33. 310     OPEN "I",1,FS$(I)
  34. 320     INPUT#1,L$:PRINT LEFT$(L$,75)
  35. 330     INPUT#1,L$:PRINT LEFT$(L$,75)
  36. 335     INPUT#1,L$:PRINT LEFT$(L$,75)
  37. 340     CLOSE 1
  38. 350   NEXT I
  39. 360   '   ---------- ERASE FILES ----------
  40. 370   FOR I=1 TO NUMFILES
  41. 380     PRINT"ERASING: ";FS$(I)
  42. 390     KILL FS$(I)
  43. 400   NEXT I
  44. 410   END  'OF PROGRAM
  45.